home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / airvb25.zip / VB.ZIP / ACOCKPIT.FRM < prev    next >
Text File  |  1996-01-20  |  21KB  |  650 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Cockpit"
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   675
  8.    ClientTop       =   1995
  9.    ClientWidth     =   8835
  10.    Height          =   7275
  11.    Left            =   615
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   461
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   589
  19.    Top             =   1695
  20.    Width           =   8955
  21.    Begin AIR OBI 
  22.       ADFBearing      =   0
  23.       AirspeedVFE     =   85
  24.       AirspeedVMax    =   170
  25.       AirspeedVNE     =   150
  26.       AirspeedVNO     =   112
  27.       AirspeedVS0     =   35
  28.       AirspeedVS1     =   40
  29.       AltBarometer    =   0   'False
  30.       AltBarometricPressure=   20
  31.       AutoRedraw      =   0   'False
  32.       AVersion        =   2.5
  33.       BackColor       =   &H00C0C0C0&
  34.       Bank            =   0
  35.       BevelInner      =   0  ' 0 - None
  36.       BevelOuter      =   2  ' 2 - Inset
  37.       BevelWidth      =   2
  38.       BorderWidth     =   0
  39.       CompassStyle    =   0  ' 0 - Stationary
  40.       DisplayMode     =   11  ' 11 - OBI
  41.       FontSize        =   10
  42.       Height          =   2175
  43.       HSIBearing      =   55
  44.       HSICompass      =   -1  'True
  45.       HSICourseDelta  =   1
  46.       HSICourseDeviation=   -0.5
  47.       HSICourseDisplay=   0  ' 0 - CRS
  48.       HSICourseHeading=   34
  49.       HSIDistance     =   0
  50.       HSIDistanceDisplay=   2  ' 2 - WPT
  51.       HSIGlideSlopeDelta=   1
  52.       HSIGlideSlopeDeviation=   0
  53.       HSINavigationSource=   5  ' 5 - LRN
  54.       HSISpeed        =   0
  55.       HSITime         =   0
  56.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  57.       Inclinometer    =   0
  58.       Left            =   6120
  59.       MouseControl    =   0   'False
  60.       OBIARCFlag      =   -1  'True
  61.       OBIBackCourse   =   -1  'True
  62.       OBICourse       =   0
  63.       OBICourseDeviation=   0.3
  64.       OBIGlideSlope   =   -0.4
  65.       OBIGSFlag       =   -1  'True
  66.       OBINAVFlag      =   0   'False
  67.       OBIToFrom       =   1  ' 1 - To
  68.       OrdCourse       =   0
  69.       Pitch           =   0
  70.       RMIBearing      =   0
  71.       RMICompass      =   0
  72.       TabIndex        =   9
  73.       Top             =   4440
  74.       Turn            =   0
  75.       Value           =   0
  76.       Width           =   2175
  77.    End
  78.    Begin AIR RMI 
  79.       ADFBearing      =   0
  80.       AirspeedVFE     =   85
  81.       AirspeedVMax    =   170
  82.       AirspeedVNE     =   150
  83.       AirspeedVNO     =   112
  84.       AirspeedVS0     =   35
  85.       AirspeedVS1     =   40
  86.       AltBarometer    =   0   'False
  87.       AltBarometricPressure=   20
  88.       AutoRedraw      =   0   'False
  89.       AVersion        =   2.5
  90.       BackColor       =   &H00C0C0C0&
  91.       Bank            =   0
  92.       BevelInner      =   0  ' 0 - None
  93.       BevelOuter      =   2  ' 2 - Inset
  94.       BevelWidth      =   2
  95.       BorderWidth     =   0
  96.       CompassStyle    =   0  ' 0 - Stationary
  97.       DisplayMode     =   10  ' 10 - RMI
  98.       FontSize        =   10
  99.       Height          =   2145
  100.       HSIBearing      =   55
  101.       HSICompass      =   -1  'True
  102.       HSICourseDelta  =   1
  103.       HSICourseDeviation=   -0.5
  104.       HSICourseDisplay=   0  ' 0 - CRS
  105.       HSICourseHeading=   34
  106.       HSIDistance     =   0
  107.       HSIDistanceDisplay=   2  ' 2 - WPT
  108.       HSIGlideSlopeDelta=   1
  109.       HSIGlideSlopeDeviation=   0
  110.       HSINavigationSource=   5  ' 5 - LRN
  111.       HSISpeed        =   0
  112.       HSITime         =   0
  113.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  114.       Inclinometer    =   0
  115.       Left            =   6120
  116.       MouseControl    =   0   'False
  117.       OBIARCFlag      =   0   'False
  118.       OBIBackCourse   =   0   'False
  119.       OBICourse       =   0
  120.       OBICourseDeviation=   0
  121.       OBIGlideSlope   =   0
  122.       OBIGSFlag       =   0   'False
  123.       OBINAVFlag      =   0   'False
  124.       OBIToFrom       =   0  ' 0 - None
  125.       OrdCourse       =   0
  126.       Pitch           =   0
  127.       RMIBearing      =   0
  128.       RMICompass      =   0
  129.       TabIndex        =   8
  130.       Top             =   2280
  131.       Turn            =   0
  132.       Value           =   0
  133.       Width           =   2175
  134.    End
  135.    Begin AIR ADF 
  136.       ADFBearing      =   0
  137.       AirspeedVFE     =   85
  138.       AirspeedVMax    =   170
  139.       AirspeedVNE     =   150
  140.       AirspeedVNO     =   112
  141.       AirspeedVS0     =   35
  142.       AirspeedVS1     =   40
  143.       AltBarometer    =   0   'False
  144.       AltBarometricPressure=   20
  145.       AutoRedraw      =   0   'False
  146.       AVersion        =   2.5
  147.       BackColor       =   &H00C0C0C0&
  148.       Bank            =   0
  149.       BevelInner      =   0  ' 0 - None
  150.       BevelOuter      =   2  ' 2 - Inset
  151.       BevelWidth      =   2
  152.       BorderWidth     =   0
  153.       CompassStyle    =   0  ' 0 - Stationary
  154.       DisplayMode     =   9  ' 9 - ADF
  155.       FontSize        =   10
  156.       Height          =   2175
  157.       HSIBearing      =   55
  158.       HSICompass      =   -1  'True
  159.       HSICourseDelta  =   1
  160.       HSICourseDeviation=   -0.5
  161.       HSICourseDisplay=   0  ' 0 - CRS
  162.       HSICourseHeading=   34
  163.       HSIDistance     =   0
  164.       HSIDistanceDisplay=   2  ' 2 - WPT
  165.       HSIGlideSlopeDelta=   1
  166.       HSIGlideSlopeDeviation=   0
  167.       HSINavigationSource=   5  ' 5 - LRN
  168.       HSISpeed        =   0
  169.       HSITime         =   0
  170.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  171.       Inclinometer    =   0
  172.       Left            =   600
  173.       MouseControl    =   0   'False
  174.       OBIARCFlag      =   0   'False
  175.       OBIBackCourse   =   0   'False
  176.       OBICourse       =   0
  177.       OBICourseDeviation=   0
  178.       OBIGlideSlope   =   0
  179.       OBIGSFlag       =   0   'False
  180.       OBINAVFlag      =   0   'False
  181.       OBIToFrom       =   0  ' 0 - None
  182.       OrdCourse       =   0
  183.       Pitch           =   0
  184.       RMIBearing      =   0
  185.       RMICompass      =   0
  186.       TabIndex        =   7
  187.       Top             =   4440
  188.       Turn            =   0
  189.       Value           =   0
  190.       Width           =   2175
  191.    End
  192.    Begin Timer Timer1 
  193.       Interval        =   50
  194.       Left            =   0
  195.       Top             =   2640
  196.    End
  197.    Begin AIR turn 
  198.       ADFBearing      =   0
  199.       AirspeedVFE     =   85
  200.       AirspeedVMax    =   170
  201.       AirspeedVNE     =   150
  202.       AirspeedVNO     =   112
  203.       AirspeedVS0     =   35
  204.       AirspeedVS1     =   40
  205.       AltBarometer    =   0   'False
  206.       AltBarometricPressure=   20
  207.       AutoRedraw      =   0   'False
  208.       AVersion        =   2.5
  209.       BackColor       =   &H00C0C0C0&
  210.       Bank            =   0
  211.       BevelInner      =   0  ' 0 - None
  212.       BevelOuter      =   2  ' 2 - Inset
  213.       BevelWidth      =   2
  214.       BorderWidth     =   0
  215.       CompassStyle    =   0  ' 0 - Stationary
  216.       DisplayMode     =   7  ' 7 - Turn Coordinator
  217.       FontSize        =   15
  218.       Height          =   1455
  219.       HSIBearing      =   0
  220.       HSICompass      =   0   'False
  221.       HSICourseDelta  =   1
  222.       HSICourseDeviation=   0
  223.       HSICourseDisplay=   0  ' 0 - CRS
  224.       HSICourseHeading=   0
  225.       HSIDistance     =   0
  226.       HSIDistanceDisplay=   0  ' 0 - DME
  227.       HSIGlideSlopeDelta=   1
  228.       HSIGlideSlopeDeviation=   0
  229.       HSINavigationSource=   0  ' 0 - VOR 1
  230.       HSISpeed        =   0
  231.       HSITime         =   0
  232.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  233.       Inclinometer    =   0
  234.       Left            =   2880
  235.       MouseControl    =   0   'False
  236.       OBIARCFlag      =   0   'False
  237.       OBIBackCourse   =   0   'False
  238.       OBICourse       =   0
  239.       OBICourseDeviation=   0
  240.       OBIGlideSlope   =   0
  241.       OBIGSFlag       =   0   'False
  242.       OBINAVFlag      =   0   'False
  243.       OBIToFrom       =   0  ' 0 - None
  244.       OrdCourse       =   0
  245.       Pitch           =   0
  246.       RMIBearing      =   0
  247.       RMICompass      =   0
  248.       TabIndex        =   6
  249.       Top             =   5160
  250.       Turn            =   0
  251.       Value           =   0
  252.       Width           =   3135
  253.    End
  254.    Begin AIR horizon 
  255.       ADFBearing      =   0
  256.       AirspeedVFE     =   85
  257.       AirspeedVMax    =   170
  258.       AirspeedVNE     =   150
  259.       AirspeedVNO     =   112
  260.       AirspeedVS0     =   35
  261.       AirspeedVS1     =   40
  262.       AltBarometer    =   0   'False
  263.       AltBarometricPressure=   20
  264.       AutoRedraw      =   0   'False
  265.       AVersion        =   2.5
  266.       BackColor       =   &H00C0C0C0&
  267.       Bank            =   0
  268.       BevelInner      =   0  ' 0 - None
  269.       BevelOuter      =   2  ' 2 - Inset
  270.       BevelWidth      =   2
  271.       BorderWidth     =   0
  272.       CompassStyle    =   0  ' 0 - Stationary
  273.       DisplayMode     =   6  ' 6 - Artificial Horizon
  274.       FontSize        =   15
  275.       Height          =   2805
  276.       HSIBearing      =   0
  277.       HSICompass      =   0   'False
  278.       HSICourseDelta  =   1
  279.       HSICourseDeviation=   0
  280.       HSICourseDisplay=   0  ' 0 - CRS
  281.       HSICourseHeading=   0
  282.       HSIDistance     =   0
  283.       HSIDistanceDisplay=   0  ' 0 - DME
  284.       HSIGlideSlopeDelta=   1
  285.       HSIGlideSlopeDeviation=   0
  286.       HSINavigationSource=   0  ' 0 - VOR 1
  287.       HSISpeed        =   0
  288.       HSITime         =   0
  289.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  290.       Inclinometer    =   0
  291.       Left            =   2880
  292.       MouseControl    =   0   'False
  293.       OBIARCFlag      =   0   'False
  294.       OBIBackCourse   =   0   'False
  295.       OBICourse       =   0
  296.       OBICourseDeviation=   0
  297.       OBIGlideSlope   =   0
  298.       OBIGSFlag       =   0   'False
  299.       OBINAVFlag      =   0   'False
  300.       OBIToFrom       =   0  ' 0 - None
  301.       OrdCourse       =   0
  302.       Pitch           =   0
  303.       RMIBearing      =   0
  304.       RMICompass      =   0
  305.       TabIndex        =   5
  306.       Top             =   2280
  307.       Turn            =   0
  308.       Value           =   0
  309.       Width           =   3135
  310.    End
  311.    Begin AIR hsi 
  312.       ADFBearing      =   0
  313.       AirspeedVFE     =   85
  314.       AirspeedVMax    =   170
  315.       AirspeedVNE     =   150
  316.       AirspeedVNO     =   112
  317.       AirspeedVS0     =   35
  318.       AirspeedVS1     =   40
  319.       AltBarometer    =   0   'False
  320.       AltBarometricPressure=   20
  321.       AutoRedraw      =   0   'False
  322.       AVersion        =   2.5
  323.       BackColor       =   &H00C0C0C0&
  324.       Bank            =   0
  325.       BevelInner      =   0  ' 0 - None
  326.       BevelOuter      =   2  ' 2 - Inset
  327.       BevelWidth      =   2
  328.       BorderWidth     =   0
  329.       CompassStyle    =   0  ' 0 - Stationary
  330.       DisplayMode     =   5  ' 5 - HSI
  331.       FontSize        =   12
  332.       Height          =   2100
  333.       HSIBearing      =   55
  334.       HSICompass      =   -1  'True
  335.       HSICourseDelta  =   1
  336.       HSICourseDeviation=   -0.5
  337.       HSICourseDisplay=   1  ' 1 - DTK
  338.       HSICourseHeading=   34
  339.       HSIDistance     =   0
  340.       HSIDistanceDisplay=   2  ' 2 - WPT
  341.       HSIGlideSlopeDelta=   1
  342.       HSIGlideSlopeDeviation=   0
  343.       HSINavigationSource=   5  ' 5 - LRN
  344.       HSISpeed        =   0
  345.       HSITime         =   0
  346.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  347.       Inclinometer    =   0
  348.       Left            =   600
  349.       MouseControl    =   0   'False
  350.       OBIARCFlag      =   0   'False
  351.       OBIBackCourse   =   0   'False
  352.       OBICourse       =   0
  353.       OBICourseDeviation=   0
  354.       OBIGlideSlope   =   0
  355.       OBIGSFlag       =   0   'False
  356.       OBINAVFlag      =   0   'False
  357.       OBIToFrom       =   0  ' 0 - None
  358.       OrdCourse       =   0
  359.       Pitch           =   0
  360.       RMIBearing      =   0
  361.       RMICompass      =   0
  362.       TabIndex        =   4
  363.       Top             =   2280
  364.       Turn            =   0
  365.       Value           =   0
  366.       Width           =   2175
  367.    End
  368.    Begin AIR speed 
  369.       ADFBearing      =   0
  370.       AirspeedVFE     =   85
  371.       AirspeedVMax    =   170
  372.       AirspeedVNE     =   150
  373.       AirspeedVNO     =   112
  374.       AirspeedVS0     =   35
  375.       AirspeedVS1     =   40
  376.       AltBarometer    =   0   'False
  377.       AltBarometricPressure=   20
  378.       AutoRedraw      =   0   'False
  379.       AVersion        =   2.5
  380.       BackColor       =   &H00C0C0C0&
  381.       Bank            =   0
  382.       BevelInner      =   0  ' 0 - None
  383.       BevelOuter      =   2  ' 2 - Inset
  384.       BevelWidth      =   2
  385.       BorderWidth     =   0
  386.       CompassStyle    =   0  ' 0 - Stationary
  387.       DisplayMode     =   4  ' 4 - Airspeed
  388.       FontSize        =   12
  389.       Height          =   2100
  390.       HSIBearing      =   0
  391.       HSICompass      =   0   'False
  392.       HSICourseDelta  =   0
  393.       HSICourseDeviation=   0
  394.       HSICourseDisplay=   0  ' 0 - CRS
  395.       HSICourseHeading=   0
  396.       HSIDistance     =   0
  397.       HSIDistanceDisplay=   0  ' 0 - DME
  398.       HSIGlideSlopeDelta=   0
  399.       HSIGlideSlopeDeviation=   0
  400.       HSINavigationSource=   0  ' 0 - VOR 1
  401.       HSISpeed        =   0
  402.       HSITime         =   0
  403.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  404.       Inclinometer    =   0
  405.       Left            =   2310
  406.       MouseControl    =   0   'False
  407.       OBIARCFlag      =   0   'False
  408.       OBIBackCourse   =   0   'False
  409.       OBICourse       =   0
  410.       OBICourseDeviation=   0
  411.       OBIGlideSlope   =   0
  412.       OBIGSFlag       =   0   'False
  413.       OBINAVFlag      =   0   'False
  414.       OBIToFrom       =   0  ' 0 - None
  415.       OrdCourse       =   0
  416.       Pitch           =   0
  417.       RMIBearing      =   0
  418.       RMICompass      =   0
  419.       TabIndex        =   3
  420.       Top             =   30
  421.       Turn            =   0
  422.       Value           =   95
  423.       Width           =   2100
  424.    End
  425.    Begin AIR climb 
  426.       ADFBearing      =   0
  427.       AirspeedVFE     =   85
  428.       AirspeedVMax    =   170
  429.       AirspeedVNE     =   150
  430.       AirspeedVNO     =   112
  431.       AirspeedVS0     =   35
  432.       AirspeedVS1     =   40
  433.       AltBarometer    =   0   'False
  434.       AltBarometricPressure=   20
  435.       AutoRedraw      =   0   'False
  436.       AVersion        =   2.5
  437.       BackColor       =   &H00C0C0C0&
  438.       Bank            =   0
  439.       BevelInner      =   0  ' 0 - None
  440.       BevelOuter      =   2  ' 2 - Inset
  441.       BevelWidth      =   2
  442.       BorderWidth     =   0
  443.       CompassStyle    =   0  ' 0 - Stationary
  444.       DisplayMode     =   3  ' 3 - Rate Of Climb
  445.       FontSize        =   13
  446.       Height          =   2100
  447.       HSIBearing      =   0
  448.       HSICompass      =   0   'False
  449.       HSICourseDelta  =   0
  450.       HSICourseDeviation=   0
  451.       HSICourseDisplay=   0  ' 0 - CRS
  452.       HSICourseHeading=   0
  453.       HSIDistance     =   0
  454.       HSIDistanceDisplay=   0  ' 0 - DME
  455.       HSIGlideSlopeDelta=   0
  456.       HSIGlideSlopeDeviation=   0
  457.       HSINavigationSource=   0  ' 0 - VOR 1
  458.       HSISpeed        =   0
  459.       HSITime         =   0
  460.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  461.       Inclinometer    =   0
  462.       Left            =   6630
  463.       MouseControl    =   0   'False
  464.       OBIARCFlag      =   0   'False
  465.       OBIBackCourse   =   0   'False
  466.       OBICourse       =   0
  467.       OBICourseDeviation=   0
  468.       OBIGlideSlope   =   0
  469.       OBIGSFlag       =   0   'False
  470.       OBINAVFlag      =   0   'False
  471.       OBIToFrom       =   0  ' 0 - None
  472.       OrdCourse       =   0
  473.       Pitch           =   0
  474.       RMIBearing      =   0
  475.       RMICompass      =   0
  476.       TabIndex        =   2
  477.       Top             =   30
  478.       Turn            =   0
  479.       Value           =   0
  480.       Width           =   2100
  481.    End
  482.    Begin AIR alt 
  483.       ADFBearing      =   0
  484.       AirspeedVFE     =   85
  485.       AirspeedVMax    =   170
  486.       AirspeedVNE     =   150
  487.       AirspeedVNO     =   112
  488.       AirspeedVS0     =   35
  489.       AirspeedVS1     =   40
  490.       AltBarometer    =   0   'False
  491.       AltBarometricPressure=   20
  492.       AutoRedraw      =   0   'False
  493.       AVersion        =   2.5
  494.       BackColor       =   &H00C0C0C0&
  495.       Bank            =   0
  496.       BevelInner      =   0  ' 0 - None
  497.       BevelOuter      =   2  ' 2 - Inset
  498.       BevelWidth      =   2
  499.       BorderWidth     =   0
  500.       CompassStyle    =   0  ' 0 - Stationary
  501.       DisplayMode     =   2  ' 2 - Altimeter
  502.       FontSize        =   14
  503.       Height          =   2100
  504.       HSIBearing      =   0
  505.       HSICompass      =   0   'False
  506.       HSICourseDelta  =   0
  507.       HSICourseDeviation=   0
  508.       HSICourseDisplay=   0  ' 0 - CRS
  509.       HSICourseHeading=   0
  510.       HSIDistance     =   0
  511.       HSIDistanceDisplay=   0  ' 0 - DME
  512.       HSIGlideSlopeDelta=   0
  513.       HSIGlideSlopeDeviation=   0
  514.       HSINavigationSource=   0  ' 0 - VOR 1
  515.       HSISpeed        =   0
  516.       HSITime         =   0
  517.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  518.       Inclinometer    =   0
  519.       Left            =   4470
  520.       MouseControl    =   0   'False
  521.       OBIARCFlag      =   0   'False
  522.       OBIBackCourse   =   0   'False
  523.       OBICourse       =   0
  524.       OBICourseDeviation=   0
  525.       OBIGlideSlope   =   0
  526.       OBIGSFlag       =   0   'False
  527.       OBINAVFlag      =   0   'False
  528.       OBIToFrom       =   0  ' 0 - None
  529.       OrdCourse       =   0
  530.       Pitch           =   0
  531.       RMIBearing      =   0
  532.       RMICompass      =   0
  533.       TabIndex        =   1
  534.       Top             =   30
  535.       Turn            =   0
  536.       Value           =   90
  537.       Width           =   2100
  538.    End
  539.    Begin AIR heading 
  540.       ADFBearing      =   0
  541.       AirspeedVFE     =   85
  542.       AirspeedVMax    =   170
  543.       AirspeedVNE     =   150
  544.       AirspeedVNO     =   112
  545.       AirspeedVS0     =   35
  546.       AirspeedVS1     =   40
  547.       AltBarometer    =   0   'False
  548.       AltBarometricPressure=   20
  549.       AutoRedraw      =   0   'False
  550.       AVersion        =   2.5
  551.       BackColor       =   &H00C0C0C0&
  552.       Bank            =   0
  553.       BevelInner      =   0  ' 0 - None
  554.       BevelOuter      =   2  ' 2 - Inset
  555.       BevelWidth      =   2
  556.       BorderWidth     =   0
  557.       CompassStyle    =   0  ' 0 - Stationary
  558.       DisplayMode     =   1  ' 1 - Heading Indicator
  559.       FontSize        =   12
  560.       Height          =   2100
  561.       HSIBearing      =   0
  562.       HSICompass      =   0   'False
  563.       HSICourseDelta  =   0
  564.       HSICourseDeviation=   0
  565.       HSICourseDisplay=   0  ' 0 - CRS
  566.       HSICourseHeading=   0
  567.       HSIDistance     =   0
  568.       HSIDistanceDisplay=   0  ' 0 - DME
  569.       HSIGlideSlopeDelta=   0
  570.       HSIGlideSlopeDeviation=   0
  571.       HSINavigationSource=   0  ' 0 - VOR 1
  572.       HSISpeed        =   0
  573.       HSITime         =   0
  574.       HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
  575.       Inclinometer    =   0
  576.       Left            =   150
  577.       MouseControl    =   0   'False
  578.       OBIARCFlag      =   0   'False
  579.       OBIBackCourse   =   0   'False
  580.       OBICourse       =   0
  581.       OBICourseDeviation=   0
  582.       OBIGlideSlope   =   0
  583.       OBIGSFlag       =   0   'False
  584.       OBINAVFlag      =   0   'False
  585.       OBIToFrom       =   0  ' 0 - None
  586.       OrdCourse       =   0
  587.       Pitch           =   0
  588.       RMIBearing      =   0
  589.       RMICompass      =   0
  590.       TabIndex        =   0
  591.       Top             =   30
  592.       Turn            =   0
  593.       Value           =   0
  594.       Width           =   2100
  595.    End
  596. End
  597.  
  598. Sub Form_Load ()
  599.  
  600.     alt = 11250
  601.     speed = 95
  602.  
  603. End Sub
  604.  
  605. Sub Timer1_Timer ()
  606.  
  607. 'this is not a real simulation
  608.     horizon.Bank = horizon.Bank + 4 * Rnd - 2
  609.     If horizon.Bank > 30 Then horizon.Bank = 30
  610.     If horizon.Bank < -30 Then horizon.Bank = -30
  611.  
  612.     horizon.Pitch = horizon.Pitch + 4 * Rnd - 2
  613.     If horizon.Pitch > 30 Then horizon.Pitch = 30
  614.     If horizon.Pitch < -30 Then horizon.Pitch = -30
  615.  
  616.     climb = 50 * speed * Sin(horizon.Pitch * Cos(horizon.Bank * 3.14159 / 180) * 3.14159 / 180)
  617.     alt = alt + climb / 100
  618.  
  619.     speed = speed - climb / 2000
  620.     If speed > 120 Then speed = 120
  621.     If speed < 60 Then speed = 60
  622.  
  623.     heading = heading - speed * Sin(horizon.Bank * 3.14159 / 180) / 20
  624.     OBI.OBICourse = heading
  625.     ADF.ADFBearing = heading + 30
  626.     RMI.RMIBearing = heading + 45
  627.     
  628.     hsi = heading
  629.  
  630.     Turn.Turn = speed * Sin(horizon.Bank * 3.14159 / 180) * Sin(horizon.Pitch * 3.14159 / 180)
  631.  
  632.     'In this cockpit demo, all instruments have the AutoRedraw property
  633.     'set to false for improved refresh rates.  This requires that
  634.     'you force the instruments to redraw after all the instruments'
  635.     'properties have been updated.  Setting the Redraw property to
  636.     'True forces the instruments to be refreshed immediately.
  637.     
  638.     heading.Redraw = True
  639.     speed.Redraw = True
  640.     climb.Redraw = True
  641.     alt.Redraw = True
  642.     hsi.Redraw = True
  643.     horizon.Redraw = True
  644.     OBI.Redraw = True
  645.     RMI.Redraw = True
  646.     ADF.Redraw = True
  647.  
  648. End Sub
  649.  
  650.